home *** CD-ROM | disk | FTP | other *** search
Text File | 1998-02-10 | 811 b | 47 lines | [TEXT/CWIE] |
- // CCMArea version 1.3.2
- // 2-10-98
- // by David Catmull
-
- #include "CCMGADialog.h"
- #include <Appearance.h>
-
- /* History:
-
- 2-10-98 First version
- */
-
- CCMGADialog::CCMGADialog(LStream *inStream)
- : LGADialog(inStream)
- {
- }
-
- void
- CCMGADialog::ClickSelf(const SMouseDownEvent &inMouseDown)
- {
- CMClick(inMouseDown);
- }
-
-
- void
- CCMGADialog::BuildMenuSelf(MenuHandle inMenu)
- {
- if (HasAttribute(windAttr_Regular)) {
- Boolean enabled,usesMark;
- Char16 mark;
- Str255 name;
-
- LCommander::GetTarget()->ProcessCommandStatus(cmd_Close,enabled,usesMark,mark,name);
-
- if (enabled) {
- Str255 closeString;
- short item;
-
- ::GetIndString(closeString,UCMArea::GetCmdStringID(),1);
-
- ::AppendMenu(inMenu,closeString);
- item = ::CountMenuItems(inMenu);
- ::SetMenuItemCommandID(inMenu,item,cmd_Close);
- }
- }
- }
-